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HLDTASK = HLD TASK FILE 1/0 IGoSEP=1984 01:42:15 YAX/VIS Macro, 04-00 Page 1 
Oe 000 Breen 8be b1so8:60 LAtD eacTaCD SANG macs t eid 
TITLE HLDTASK > HLD TASK FILE 1/0 
“IDENT "V04-000° 


t eeuedeennneoeresnenenonnoeeeesensnoneseoeesnonnnseseseennennoneseneesonsenes 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


OFTWARE IS ait UNDER A LICENSE te MAY BE USED AND COPIED 
N ACCORDANCE WITH THE TERMS OF SUCH biccn SE__AND WITH THE 
ION OF THE ABOVE Bp ldo NOTICE. THIS SOFTWARE OR ANY OTHER 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eORPORAT ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


SSSSSSSSSSS3ssssssssss 
OOCoooooooooooo 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 


SSSSSSSssssssssssssssss 
SoOCoooooooooooooooooooo 


o 


SOFTWARE ON EQUIPMENT WHICH iS NOT SUPPLIED BY DIGITAL. 


i* “ 
3* * 
3* ® 
3* * 
3* * 
7* * 
3* * 
3* * 
3* * 
3* 0 © 
3* TRANSFERRED. ® 
3* ® 
3* ® 
3* ® 
* ® 
3* ® 
7* ® 
3* & 
7* ® 
3* * 
3* * 
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1 
1 
1 
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1 
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1 
1 
1 
2 
0 
338 
444 RAEAAATAAAAAATAAATAAAAAAAAATAACAAAAARAARARAAAAAAAARAAAARAARARARAAEAAARERAREREERAAAEEEE 
0000 
0000 i++ 
9900 ; FACILITY: DECNET HOST LOADER (HLD) 
9090 3 ABSTRACT: 
0000 : HLD IS A COMPONENT OF DECNET/VAX-11. IT PROVIDES ACCESS TO 
44464 3 RSX11S TASK IMAGES STORED ON A VAX SYSTEM. 
9000 3 ENVIRONMENT: 
9000 : THE HLD IMAGE EXECUTES IN THE CONTEXT OF A PROCESS CREATED BY 
900 4 ; NETACP. IT RUNS IN USER MODE AND REQUIRES NETWORK PRIVILEGE. 
0900 : : AUTHOR: SCOTT G. DAVIS, CREATION DATE: 06-JUN-79 
999 4 ; MODIFICATIONS: 
000 46: v001  $GD0001 14-Mar-1984 
000 47 ; Locate checkpoint space and overlays correctly 
0000 4 = 
900 ; INCLUDE FILES 
000 ; HDRDF$ ; TASK HEADER DEFINITIONS 
000 LBLOFS : LABEL BLOCK DEFINITIONS 
309 SHLDDEF 
§ 8 > MACROS: 
000 : 
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Cc 
C 
C 
C 
C 
C 
) 
E 
I 
I 
I 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L ‘ 
L. 


eee ee ee ee Ot 


Ai so 4 ss ss Ss Ss ss 


4 


NONE 
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0000 
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B 5 
inemnenl sa MRE BUSSBELE AMMEN, 


n 60 ; 
: t LOCAL DATA 
es ; .PSEZT HLDSPURE NOSHR ,NOEXE ,RD,NOWRT, LONG 
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+ vat +3 - HLD TASK FILE 1/0 


0000 -PSECT HLDSCODE 


p++ 
j ; FUNCTIONAL DESCRIPTION: 


3 WHATEVER IS NECESSARY. 
> INPUTS: 
HLDSTSKFAB IS SET UP 


SSSSSSSssssssssssssssssss 


SSEp=1986 01:38:40 


NOSHR ,EXE, 


AX/VMS Macro V04-00 
HLD.SRCJHLDTASK.MAR; 1 


RD ,NOWRT 


; HLDSOPEN_TSKFIL OPENS THE SPECIFIED TASK FILE AND VERIFIES 


4 
7% 
f3 
0 7 ; Ril IS BASE OF REMAINDER OF OPTIONAL DATA 
0 8 : OUTPUTS: 
0; RG - NO. OF INTEGRAL LUN BLOCKS 
0 1; R7 = NO. OF BYTES IN LUN BLOCK AFTER LAST FULL ONE 
é : R& = NO. OF INTEGRAL DISK BLOCK 
33 i i R9 = NO. OF BYTES IN DISK BLOCK AFTERS LAST FULL ONE 
000 5 i-- 
000 6 
000 HLDSOPEN_TSKFIL:: : ENTRY POINT 
50 0000'CF 4 900 8 MOVAB  W*HLDSTSKFAB,RO + SET TO OPEN FILE 
FFFB" 3 0 89 BSBW LDSRMS_OPE : DO 
50 0000'CF 3 008 90 MOVAB W“HLDSTSKRAB,RO + SET TO CONNECT RECORD STREAM 
FFFO" ; 0000 —s«o9 BSBW HLDSRMS_ CONNECT : 
FFED' 30 01 3 BSBW HLDSDISR_READ : READ THE LABEL BLOCK 
901 34 $ VALIDATE THE FILE 
5A 0000'CF D0 001 96 * MOVL W*HLDSTSKRABSRABSL RBF,R10 ; POINT TO THE BUFFER 
18 AA 4000 8F B3 0018 97 BITW #TSS$NHD,LSBFLG(R10) : 1§ THERE A HEADER? 
03 1 901 98 BEQL $ : IF EQL OK 
0007-3 ote 133 ra BRW 121$ : ERROR 
51 00°AB 3 00 ‘je MOVZWL B*HLDSW_PART_SIZE(R11),R1 ; GET THE PARTITION SIZE 
56 600" AB 087 108 MOVZWL B*HLD$W-PART-ADDR(R11).R6 ; GET THE PARTITION ADDRESS 
12 0028 10 BNEQ  =«-10$ ; IF NEQ TASK IS UNMAPPED 
08 AA 1FFF 8F BS 00 104 BITW  #*017777,L$BSA(R10) : IS TASK ON A 4K WORD BOUNDARY? 
11 13 00 3 105 BEQL 208 : IF €QL YES 
00c7.—s 31 0 106 BRW 131$ + ERROR 
03 108 : TASK 1S UNMAPPED 
03 130 jos: 
08 AA 56 BI 111 : CMP R¢ LSBSA(R10) : DOES PARTITION ADDRESS = BASE ADDR? 
03 «13 O3¢ 118 BEQL =ss«+15$ : IF EQL YES = OK 
o0c3. 3 O3¢ 113 ian BRW 1418 t ERROR 
51 0040 BF Ab 41 115 "s DIVW2 = -#64,R1 : CONVERT TO 32.-WORD BLOCKS 
te 113 t CHECK REQUEST TYPE 
46 118 : 
46 119 2 
00°AB 95 0046 120 TSTB BOHLDSB_REQUEST(R11) : INITIAL LOAD? 
1 12 rh : } BNEQ 0$ : If NEQ not initial load 


Dd 5 
- HLD TASK FILE 1/0 16-SEP-1984 01:42:15 VAX/VMS Macro V04-00 Page 5 | 
§-8 set} 858508 EALDVSRCJMLD TASK MAR: 1 dD! 
re ! ; : INITIAL LOAD REQUEST 
51 10 AA 81 00468 105° CMPW BAXZ(R10) .RI : IS FILE > PARTITION? - 
o ° Pa. § BLEQuU : If LEQU no = proceed ve 
008 1 1 Ril 18 : Error 
51 OF AA % S2:% : 25$: MOVZWL L$BLDZ(R10).R : THIS IS THE REAL XFER SIZE st 
3 OOEE CA 8 1 MOVZWL LSBHRB(R10),R : GET OFFSET TO HEADER BLOCK | 
"CF 3 ; 130 ADDL2 R3,W*HLDSGL_TSKBKT : SET UP THE BLOCK NO. 
1 ae BRB 40$ : PROCEED 98 
54 O0FO ga 3 66 1 § ; MOVZWL LSBBLK(R10),R4 ; Get number of Label blocks 00 
0000' CF 4 § 9 134 ADDL2 R4,W*HLDSGL_TSKBKT 3 Point to checkpoint space 
00° Ag F 135 TSTB BOHLDSB_REQOEST(RI1) ; Overlay request? 
1 ig , : § BLSS 2$ ; If LSS yes 
, : : CHECKPOINT REQUEST OF SOME SORT 09 
53 EE CA 73° «140° MOVW LS$BHRB(R10),R3 : OFFSET TO HEADER BLOCK 
4 A ? 141 SUBW 4,R ; Compute chket size in blocks 00 
3 8 78 168 MULW2 #8,R ; CONVERT TO 32.-WORD BLOCKS 00 
1 61 7E «14 CMPW  SséR'1_R : IS PARTITION > CHECKPOINT SPACE? 00 
4 18 } 144 BLEQU 408 : If LEQU no 00 
0088 = 31 3 145 161$ ; Output error st 
6 149 : Process overlay request Ss 
6 149 $28: 00 
53 cE CA 8B 6 150 MOVW LSBHRB(R10) ,R3 : Offset to header block 00 
54 A 88 13 SUBW 1 ; Compute chkpt size in blocks 00 
0000' CF ee. 8 1 j ADDL  $R3,W“HLDSGL_TSKBKT ; Skip over checkpoint space 00 
56 OO°AB B80 3 13 MOVW § B*HLDSL_OVL"VBN(R11),R6 ; Set VBN for overlay 00 
02°AB BO 0097 154 MOVW B*HLDSL“OVL~VBN+2(R11),- 00 
"AB O9A 133 B*HLDSL~OVL 1 00 
‘AaB OS6 COB 1 § MOVW R6,B°HLO$L_OVL_VBN+2(R11) 4 
Q0O000'CF 0'AB § 1 ADDL B*HLD$SL_OVC_VBR(R11) ,W*HLDSGL_TSKBKT ; Set VBN for overlay 
00° AB C Og 138 MOVZWL B°HLDSU_PART_SIZE(RI{),- ; Get overlay size st 
2) be DOAA =s«*160 CLRL Re ; Prepare for quadword divide st 
59 58 51 00000200 8F A 161 EDIV #512,R1,R8,R9 : Compute no. of blocks to go 
16 #11 16¢ BRB 508 : Finish in common code bo 
, 164 + FINISH UP PROCESSING, MOSTLY W.R.T LUNS 00 
7 166 408: 
59 58 51 «08 9B Bd 182 EbTt SB R1.R8.R9 | RB NO. OF INTEGRAL BLOCKS 
BE 169 ae : R9 = SIZE OF LAST BLOCK IN 32.-WORD CHUNKS 
59 0040 Ly Ad : 170 MULW2 #04,R9 : GET NO. OF BYTES FOR LAST TRANSFER 
$ 8 C 171 TStw OR ; MAPPED SYSTEM? 
9 ¢ 17 BEQL 508 : IF EQL YES 
51 0040 BF Ad 00C7 123 a MULW2 #64,R1 : CONVERT BACK TO BYTES 
D0 : 
00'aB. «OS1~—s«wBWO 20¢ 125 ont MOVW R1,B*HLDSW_XFR_SIZE(R11) ; GIVE SIZE TO SLD 4 
D0 : 
56 0D 179 CLROQ RG ; MAY BE NO LUNS 
"AB «94 (00D 178 CLRB © B*HLDS$B_NLUNS(R11) ; ASSUME NO LUN-FIXING 
"AB D005 «17 TSTB B*HLDSB-REQUEST (R11) : INITIAL LOAD? 


— 5 
= HLD TASK F / 16-SEP-1984 01:42:15 VAX/VMS Macro v04-00 Page .! 
ne Rrcsmpachtee® g- att 8:58:40 PALO SRCIMLD TASK MAR: 1 ° (2) 
fae p81 0 BNEQ 608 : IF NEQ NO Va 
0000" CF 9 DA 1 TSTB W*HLDSGB_LUNFLAG ; LUN=F IXING REQUIRED? oa 
9 1 DE 1 i BEG 608 : IF EQL NO 
52. OOF2 CA 9A ep 1 MOVZBL LSBLUN(R10),R2 : Ger NO. OF LUNS 
"AaB OS2 £5 184 MOVB  R2,B*HLDSB_NLUNS(R11) : STORE FOR SLD 
5 1 £9 185 BEQL 608 : IF EQL NONE TO FIX 
ee 1 6 CLRL OR : EDIV USES QUAD DIVIDEN 
57 56 52 00000980 BF —> 1 EDIV. #128,R2,R6,R7 : COMPUTE STUFF FOR LUN BLOCK TRANSFER 
s & Fé 8 sas MULL2 #4,R? : NO. OF BYTES 
0S O00F9 1 "  RSB : DONE 
FA 182 
FA 193 > ERROR PROCESSING 86 
FA 195 1218: ; NO HEADER es 
56 04 00 FA 196 MOVL SHLDSC_ERR_NOHDR,R6 : 4 
FF 198 131$: : MAPPED TASK NOT ON 4K BOUNDARY Be 
56 05 00 re 199 MOVL SHLDSC_ERR_NOT4K,R6 ; 
4 201 1461S: : UNMAPPED PARTITION MISMATCH OG 
56 06 00 4 20 MOVL  $#HLDSC_ERR_BADPR,R6 : 
OA 11 7 88 BRB 911$ 0c 
9 204 151$: ; FILE TOO BIG FOR PARTITION os 
56 97 DO 0109 205 MOVL  $#HLDSC_ERR_BIGFL,R6 ; 
§ 11 0c 06 BRB 911$ 4 
OE 207 1618: : PARTITION TOO BIG FOR CHKPT 
56 08 00 OF 08 MOVL #HLDSC_ERR_BIGPR,R6 F 00 
00. «11 1 09 oan BRB 911$ st 
0000'CF 56 90 13 11 "  MOVB ~=—s-R6, W*HLDSGB_ERRORFLG =; -SAVE FOR PROCESSING 00 
50 00° 3 1 \¢ MOVL $*#SS$_NORMAL ,RO ; No more messages in LOG 00 
FEE2" 31 18 13 BRW HLDSEXTT_TO_VMS : THAT IS ALL 09 
1E 215 END : 
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Symbol table 7 SEb=1986 01:28:40 MLD SRCIMLDTASK-MAR; 1 wath 
H.CSP LS$BLD 
te ee 
re Hae 
NEF SY LSBOFF 
H.FCS LS$BPAR 
H.FORT L$BPRI 
ttre ee 
H.GARD LSBSGL 
H.HOLN L$BTSK 1001 
Nc 1PS 00t Cty. RR | 
4.1SP Y( LDSACC 
H.LUN YUUUL LOSREL 
ee -: at 
e UL 
H.ODVA D0 RSLFLG 
H-OVLY ‘ RSCLDE 
H.PFVA RSLMXV 
eee mine 
H.SPRI RSLOFF 
H.TKVA RSLSA 
4. TKVL RSLSEG 
H.VEXT RSLSiZ 
H.WND RSLWND 0000001 
HLD$8_NLUNS eeceeeee x 93 RABSL_RBF eereeere x 05 
meee yt eerceree § x 5 $38 NORRAL eererere xX 0 
: = 
TSSCHK 2 
TSSCMP = 
TSSNET = 
TSS$NHD = 
= = 
HLDSOISK_READ eeneeeee § Xx 5 TSSNSD 
HLDSEXIT TO VMS eee0eeeee x 2 TSSPIC = 
HLDSGB_ERRORFLG eeeeeeee TSSPMD = 
HLOSGB_LUNFLAG eeeeeeee Xx : TSSPRV = 
HLDSGL_ TSKBKT eevereee XK TSSRES 2 
HLO$SL_OVL eeeeeere x : TS$SLV s 
HLOSOPEN_TSKFIL RG W.BATT 
one eacerree x w.BFPD 
HL % eeeeeeee x Ww. BHYR 
HLOSTSKFAB eeeeeeee x 3 W¥.BLGH 
HLDSTSKRAB eeeceeee § W.BLPD 
HLDSW_PART_ADDR eeeeeece x : wW.BLVR 
HLDSW_PART SIZE eeeecece x .BNPD 
at: MFR_SIZE eeeeeeee = § x 5 Ww .BOF F 
LSBASG BPC 
LS8BLK BS 
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Psect synopsis §-3 et} 1:2 13 PALO SRCJMLDTASK-MAR: 1 ” d) 


beware nr wran came $ 


! Psect synopsis ! 


beeen ceecooe saw aoece + 


PSECT name Allocation PSECT No. Attributes 

. aps . ( -») 00 ¢ 0.) NOPIC USR ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
; BLANK . ( -) 01 ¢ 1.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
,ABS ( $12.) 3 ( 2.) NOPIC USR CON ABS Ue NOSHR EXE RD WRT NOVEC BYTE 

$AB ( *) ( 3.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 

HLD ( *) ( 4.) NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC LONG 

HLD$COD ( 286.) ( 5.) NOPIC USR REL LCL NOSHR EXE RD WOWRT NOVEC AYTE 


¢ ee cw ew moe ence ener seer ee eee} 


! Performance indicators ! 


Ame nnmocanner ees coec meno oceee e 


Phase Page faults CPU Time Elapsed Time 


Initialization 3 00: 8: §-96 :00:00.97 
C processing 1 0:00:00. :00:03.8 
Pass 1 14 :00:01.64 : 
byaso), table sort :00:00. 0: 

Pass 6 :00: 6 


Symbol table output :00:00.0 

Psect synopsis output :00: 8 

Cross-reference output 0:00:00.00 0 

Assembler run totals 38 :00:03.14 0 

The working $ t Limit was 1050 pages. 

7342 bytes (15 pages) of virtual memory were used to buffer the intermediate coge, 

There were 10 pages of symbol table space allocated to hold 113 non-local and 17 local symbols. 
215 source Lines were read in Pass 1, producing 19 object records in Pass 2. 

11 pages of virtual memory were used to define 10 macros. 


boom an ene reece ee ame mre soae + 


' Macro Library statistics ! 


bee e ere wee een ee ones wees cene + 


Macro library name Macros defined 

5S0UA28: (HLD.OBJJHLD.MLB; 1 4 
=B25Ssouase:t sv8c 18 STARLET.MLB;2 ; 
TOTALS ‘all Libraries) 


179 GETS were required to define 7 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:HLDTASK/OBJ=OBJ$:HLDTASK MSRC$:HLDTASK/UPDATE=(ENHS:HLDTASK) +LIBS$:HLD/LIB 
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